Disc Station 3 (Korea)/Disc Station Vol 3 (Korea).img/heart/bazaar/baz_15.ntc

Text File | 1997-09-02 | 18KB | 1,238 lines

;
;
;


;

@wall                                    ;
@mouse        0                            ;
@frmlay     1,(15,51),60,9,1            ;
@frmlay     2,(36,10),20,30,1            ;


@frmact     1                            ;
@frmclr     1                            ;

@txtreset                                ;
@brank         0,1                            ;
@scroll        0                            ;
@txtsize    1,1                            ;

@txtwait    0,0,0                        ;
@txtdco     1                            ;


;

@chrload    bzz_kao.gcn,10,10            ;

@chrset        chrbg(0),0,0,0            ;
@chrset        chrbg(1),0,0,1
@chrset        chrbg(2),0,0,2
@chrset        chrbg(3),0,0,3
@chrset        chrbg(4),0,0,4


;
@iconload    bzz_ico.gcn                    ;
@iconset    iconchr0,1,0,0                ;
@iconset    iconchr1,1,1,1
@iconset    iconchr2,1,2,2
@iconset    iconchr3,1,3,3
@iconset    iconchr4,1,4,4
@iconset    iconchr5,1,5,5
@iconset    iconchr6,1,6,6
@iconset    iconchr7,1,7,7
@iconset    iconchr8,1,8,8
@iconset    iconchr9,1,9,9
@iconset    iconchr10,1,10,10
@iconset    iconchr11,1,11,11
@iconset    iconchr12,1,12,12


$flag0 = 0
$flag1 = 0
$flag2 = 0



;
@pcmload     nokone.wlk                    ;


@effect        2,255,8                        ;
@wait         5


@gra         bzz_tit.gcn,(0,0),0
@effect        2,255,10

$x = 0
$y = 0
$sw = 0

:loops0
@mousepoint    $x,$y,$sw
@if $sw == 0   :loops0

@pcm           1

@gra           bzz.gcn,(0,50),0


$sw = 0
:loops1
@mousepoint     $x,$y,$sw
@if $sw != 0    :loops1


$sw = 0
:loops2
@mousepoint    $x,$y,$sw
@if $sw == 0    :loops2


@pcm         1


@if $sw == 1    :main_start


;

@effect     2,255,8
@clr         (0,0),80,60,0
@wait         10
@snd        3
@mouse         0
@gra         bzz_main.gcn,(0,0),0
@effect        2,255,10
@iconput    iconchr0,(74,1)                ;
@iconjump    :program_end
@mouse        1

@goto        :Op_start



;
:main_start

@effect     2,255,8
@clr         (0,0),80,60,0
@wait         10

@snd        3



:end
@mouse         0



@gra         bzz_main.gcn,(0,0),0
@gra         bzz_scr.gcn,(18,0),0

@effect        2,255,10




;

:main_loop

@gra         bzz_scr.gcn,(18,0),0

@iconput    iconchr0,(74,1)                ;
@iconjump    :program_end



@if    $flag0 != 0 :main_lp00

;
@txtwait    0,0,0                        ;
@txtdco     3                            ;
;

@wait        10

@chrput        chrbg(1),(0,50),1                ;

ú─ú╙╣┘└┌└╟ ╝╝░Φ┐í ┐└╜┼ ░╔ ╚»┐╡╟╒┤╧┤┘.
@keywait
└·┤┬ └╠ ╝╝░Φ└╟ ╛╚│╗└╬, ─½├≥╛╞╢≤░φ ╟╪┐Σ.
@keywait
┐└┤├└║ └╠░≈┐í╝¡ ╕╢└╜▓» ┴±▒Γ┤┘ ░í╝╝┐Σ!
@keywait

@frmclr        1
í╕DS╣┘└┌í╣┤┬ └╠╣°└╠ ╡╬ ╣°┬░└╬╡Ñ┐Σ,
├│└╜ ┐└╜├┤┬ ║╨╡Θ└╗ └º╟╪ └╠░≈└╠ ╛ε╢▓ ░≈└╬┴÷íí
░ú┤▄╚≈ ╝│╕φ╟╥▓▓┐Σ.
@keywait
@frmclr        1
└╠░≈└║ ╟╤╕╢╡≡╖╬ ╕╗╟╪,
í╕╣╠┤╧ ░╘└╙└╗ ┴±▒µ ╝÷ └╓┤┬ ░≈í╣└╠╢°┤╧┤┘.
@keywait
@frmclr        1
└╠░≈┐í┤┬ ╕┼ ╚ú╕╢┤┘ └█└║ ╣╠┤╧ ░╘└╙└╠ ╕ε ░│╛┐ ╝÷╖╧╡╟╛ε └╓┴╥.
▒╫╕«░φ ┤τ╜┼└║ └╠ ╝╝░Φ╕ª ┼δ╟╪ ▒╫ ╣╠┤╧░╘└╙└╗ ╟├╖╣└╠╟╥ ╝÷ └╓íí
╛ε┐Σ.(└╠╣°┐í┤┬ ╟╧│¬╣█┐í ╛°╛ε╝¡ ╣╠╛╚╟╪┐Σí¡!)

@keywait
@frmclr        1

┴÷▒▌║╬┼═┤┬ ╚¡╕Θ └º└╟ ╛╞└╠─▄└╗ ┼¼╕»╟╧▒Γ╕╕ ╟╧╕Θ ┴°╟α╡╦┤╧┤┘.
@keywait
┐⌐╖»░í┴÷ ─┌│╩░í └╓└╕┤╧▒ε └▀ ╗∞╞∞ ║╕╝╝┐Σ.

@keywait
@frmclr        1
▒╫╖│, ├╡├╡╚≈ ┴±▒Γ╝╝┐Σ!!
@keywait
@frmclr        1


@chrput        chrbg(0),(0,50),1            ;



$flag0 = 1
@txtwait    0,0,0                        ;
@txtdco     0                            ;


:main_lp00

@iconput    iconchr1,(20,17)            ;
@comment    (2,0),1,í╕┐╔╝╟í┘╕≤╜║┼═minimumí╣└╗ ╟├╖╣└╠╟╒┤╧┤┘.
@iconjump    :Op_start                ;

;@if    $flag1 != 0 :j_icon0

;@iconput    iconchr3,(48,27)            ;
;@comment    (2,0),1,
;@iconjump    :staff_start
;@goto        :j_icon1

;:j_icon0

;@iconput    iconchr3,(48,27)            ;
;@comment    (2,0),1,èJ"*âX*^âbât** "M**âüâbâZ*[âW** "*******üB
;@iconjump    :staff_start

:j_icon1

@iconput    iconchr2,(23,43)            ;
@comment    (2,0),1,╝╥╜─ ─┌│╩ ┴ª 2╚╕. ╜║─┌╛ε ╡╡└ⁿ ╕≡┴²╡╡ └╓╜└┤╧┤┘.
@iconjump    :otayori_start





@mouse        1
:program_loop
@goto        :program_loop



;

:staff_start
@pcm         1

@iconclr    iconchr1
@iconclr    iconchr2
@iconclr    iconchr3


;

@txtwait    0,0,0                            ;
@txtdco     3                                ;

@if    $flag1 != 0 :staff_start_main

@mouse         0

@chrput        chrbg(2),(0,50),1                ;
****üI*@âJ*`âàâA**********üI
@keywait
@frmclr        1
@chrput        chrbg(1),(0,50),1                ;
**********üAân*"âXüB
üuécérâoâU*[âïüv**********âX*^âbât******âüâbâZ*[âW**
**********üH
@keywait
@frmclr        1
@chrput        chrbg(2),(0,50),1                ;
****üEüEüE
@keywait
********************üB
@keywait
@frmclr        1
âüâbâZ*[âW**üAâVâVâJâè'***'***-*üAâpâWâââï **********
******üB
************üA-**** ****Ä₧****************ücüB

@keywait
@frmclr        1
*********-***** ********************ücüB
@keywait
@frmclr        1
@chrput        chrbg(1),(0,50),1                ;
*-**ücüB*****""***'*ëJ**üAâVâVâJâè'***'*-Äòt****'*****
"*-"*** ************üB**********ücüB
@keywait
@frmclr        1
ücÄäüA********üI

@keywait
@frmclr        1
@chrput        chrbg(0),(0,50),1                ;

;
:staff_start_main

@gra         bzz_scr3.gcn,(18,0),2


@if    $flag1 != 0 :staff_main

$flag1 = 1


@chrput        chrbg(1),(0,50),1                ;
âpâWâââïüIüI
@keywait
@frmclr        1

@chrput        chrbg(4),(0,50),1                ;
âJ*`âàâA**üB
********üB
********* ******üB
@keywait
@frmclr        1

@chrput        chrbg(1),(0,50),1                ;
âX*^âbât******âüâbâZ*[âW******"*******************ücüB
******üAâpâWâââï **Ég******* **********Äv****ücüB
@keywait
@frmclr        1

@chrput        chrbg(4),(0,50),1                ;
**************üBÉS"z********************üB
********"*ÉgüA**** âv*[*] **òa* ******üAÄv********
Ä₧************************üB
@keywait
@frmclr        1

ÉS"z********************************üAüuécérâoâU*[âïüv
âX*^âbât******üA"*********âüâbâZ*[âWüA**"*********üH
@keywait
@frmclr        1

@chrput        chrbg(1),(0,50),1                ;
****üB***********-******************üB
@keywait
@frmclr        1
@chrput        chrbg(0),(0,50),1                ;


@goto    :staff_main2


:staff_main


@mouse         0

@chrput        chrbg(4),(0,50),1                ;
âX*^âbât******âüâbâZ*[âW********üH
@keywait
@frmclr        1
@chrput        chrbg(1),(0,50),1                ;
* ********üB******************üB
@keywait
@frmclr        1
@chrput        chrbg(0),(0,50),1                ;


:staff_main2


@txtwait    0,0,0                            ;
@txtdco     0                                ;


@mouse         1

@gra         bzz_w1.gcn,(35,10),2

@iconput    iconchr9,(36,17)
@iconjump    :staff_1                        ;

@iconput    iconchr12,(38,21)
@iconjump    :staff_2                        ;

@iconput    iconchr10,(40,25)
@iconjump    :staff_3                        ;

@iconput    iconchr11,(38,29)
@iconjump    :staff_4                        ;

@iconput    iconchr3,(36,33)
@iconjump    :staff_5                        ;


@iconput    iconchr6,(38,39)                ;
@comment    (2,0),1,âüâC*"**-***-*******üB
@iconjump    :exit_win03                        ;




;

:win_loop03
@goto        :win_loop03


:exit_win03

@iconclr    iconchr9
@iconclr    iconchr12
@iconclr    iconchr10
@iconclr    iconchr11
@iconclr    iconchr3
@iconclr    iconchr6

@goto        :main_loop



;

:otayori_start
@pcm         1

@iconclr    iconchr1
@iconclr    iconchr2
@iconclr    iconchr3

@gra         bzz_scr2.gcn,(18,0),2



@txtwait    0,0,0                            ;
@txtdco     3                                ;

@if    $flag2 == 0 :mon_talk

;

@mouse         0

@chrput        chrbg(3),(0,50),1                ;
╣┘▒∙╝╝╗≤┐í╝¡ ╝╥╜─└╠ ▒▓└σ╚≈ ╕╣└╠ ┐╘┤┬╡Ñ ║╕░φ ░Ñ╖í?
@keywait
@frmclr        1
@chrput        chrbg(0),(0,50),1                ;
@mouse         1
@goto    :otayori_start_main


;

:mon_talk

@mouse         0

@chrput        chrbg(1),(0,50),1                ;
╛╚│τ, ╕≡┤╧┤⌐!
@keywait
@frmclr        1
@chrput        chrbg(3),(0,50),1                ;
┐└╖º╕╕└╠╛▀, ─½├≥╛╞!
@keywait
@frmclr        1
@chrput        chrbg(1),(0,50),1                ;
(íª╕≡┤╧┤⌐┤┬ 1│Γ┐í │╫╣°└╠│¬ ╣┘▒∙ ╝╝╗≤┐í╝¡ ╝╥╜─└╗ ░í┴«┤┘
   ┴╓┤┬╡Ñ ▒╫│α┐í ┤δ╟╪╝¡┤┬ ╛╞┤┬ ░╘ ╟╧│¬╡╡ ╛°╛ε.)
@keywait
@frmclr        1
@chrput        chrbg(3),(0,50),1                ;
╣┘▒∙╝╝╗≤┐í╝¡ ╝╥╜─└╠ ╕╣└╠ ┐╘┤┬╡Ñ ║╕░φ ░Ñ╖í?
@keywait
@frmclr        1
@chrput        chrbg(1),(0,50),1                ;
▒╫╖í, ░φ╕╢┐÷! ║╕░φ ░Ñ▓▓.
@keywait

@frmclr        1
@chrput        chrbg(0),(0,50),1                ;
@mouse         1

$flag2 = 1

;
:otayori_start_main

@txtwait    0,0,0                            ;
@txtdco     0                                ;


@gra         bzz_w3.gcn,(39,15),0


@iconput    iconchr7,(41,28)
@comment    (2,0),1,╝╥╜─ ─┌│╩╖╬ ░⌐┤╧┤┘.
@iconjump    :otayori_main                ;

@iconput    iconchr6,(41,36)
@comment    (2,0),1,╕▐└╬ ╚¡╕Θ└╕╖╬ ╡╣╛╞░⌐┤╧┤┘.
@iconjump    :exit_win05                    ;


;

:win_loop05
@goto        :win_loop05


:exit_win05

@iconclr    iconchr7
@iconclr    iconchr6
@goto        :main_loop



;

:otayori_main
@pcm         1

@iconclr    iconchr7
@iconclr    iconchr6

@gra         bzzph1.gcn,(18,0),2

@iconput    iconchr7,(57,45)
@comment    (2,0),1,┤┘└╜ ╞Σ└╠┴÷╖╬ ░⌐┤╧┤┘.
@iconjump    :otayori_main2

;

:win_loop06
@goto        :win_loop06

:otayori_main2

@pcm         1

@iconclr    iconchr7
@iconclr    iconchr6

@gra         bzzph2.gcn,(18,0),2

@iconput    iconchr7,(57,45)
@comment    (2,0),1,┤┘└╜ ╞Σ└╠┴÷╖╬ ░⌐┤╧┤┘.
@iconjump    :otayori_main3

;

:win_loop07
@goto        :win_loop07

:otayori_main3

@pcm         1

@iconclr    iconchr7